home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib15.dsk
/
VERIFY AND LOCK.bas
< prev
next >
Wrap
BASIC Source File
|
2023-02-26
|
1KB
|
29 lines
10 REM **********************
20 REM * VERIFY AND LOCK *
30 REM * BY S. KARATSORIDIS *
40 REM * AFTER AN ARTICLE *
50 REM * BY DOUG DENBY *
60 REM * COPYRIGHT (C) 1983 *
70 REM * BY MICROSPARC, INC *
80 REM * LINCOLN, MA. 01773 *
90 REM **********************
100 HOME
110 A$ = "VERIFY AND LOCK"
120 GOSUB 1000
130 A$ = "BY DOUG DENBY": GOSUB 1000
140 PRINT : PRINT :A$ = "PROGRAM BY STAVROS KARATSORIDIS"
150 GOSUB 1000
160 VTAB 21: PRINT "** COPYRIGHT 1983 BY MICROSPARC, INC. **"
170 VTAB 15:A$ = "PRESS ANY KEY TO CONTINUE": INVERSE : GOSUB 1000: NORMAL
180 POKE -16368,0: WAIT -16384,128: POKE -16368,0
190 HOME
200 VTAB 3:A$ = "*** INSTALLING PATCH ***": GOSUB 1000: PRINT : PRINT
210 P$ = "A27D:4C FF A9 N A9FE:D3 A9 C 20 77 A2 4C 71 A2"
220 GOSUB 2000
230 PRINT : INVERSE : PRINT "PATCH INSTALLED.": NORMAL
999 END
1000 HTAB 20 -( LEN(A$)/2): PRINT A$: RETURN
2000 P$ = P$ +" N D9C6G"
2010 PRINT : PRINT P$
2020 FOR J = 1 TO LEN(P$): POKE 511 +J, ASC( MID$ (P$,J,1)) +128: NEXT J: POKE 72,0: CALL -144
2030 RETURN